home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / gstbstrs.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-11-29  |  1.4 KB  |  57 lines
  1. 10  'GHOSTBUSTERS
  2. 20  'By Bayard Catron.
  3. 30  DATA G,H,O,S,T,B,U,S,T,E,R,S,X
  4. 40  F=340
  5. 50  Y=200
  6. 60  SCREEN 1:CLS:COLOR 7,2,0
  7. 70  KEY OFF
  8. 80  LINE(10,8)-(1000,1000),1,BF
  9. 90  FOR S=10 TO 100 STEP 5
  10. 100  C=C+1:IF C=2 THEN C= 3
  11. 110  IF C=4 THEN C= 1
  12. 120  F=F-5                 
  13. 130  Y=Y-5
  14. 140  LINE(S,S)-(F,Y),C,BF
  15. 150  NEXT S           
  16. 160  CIRCLE(155,55),5,0,,,18/7
  17. 170  CIRCLE(165,55),5,0,,,18/7
  18. 180  CIRCLE(160,65),5,5,,,18/9
  19. 190  CIRCLE(160,100),55,5,,,18/7
  20. 200  PAINT STEP(0,0),0
  21. 210  CIRCLE(135,100),15,5,,,7/18
  22. 220  PAINT STEP(0,0),0
  23. 230  CIRCLE(185,100),15,5,,,7/18
  24. 240  PAINT STEP(0,0),0
  25. 250  CIRCLE(125,90),15,5,,,18/7
  26. 260  PAINT STEP(0,0),0
  27. 270  CIRCLE(195,90),15,5,,,18/7
  28. 280  PAINT STEP(0,0),0
  29. 290  CIRCLE (160,100),92,2
  30. 300  CIRCLE (160,100),72,2
  31. 310  LINE (195,49)-(105,139),2
  32. 320  LINE (211,55)-(110,156),2
  33. 330  PSET(202,52),0
  34. 340  PAINT (110,155),2
  35. 350  LOCATE 23,8
  36. 370  D$=INKEY$:IF D$=" " THEN 510
  37. 380  B=INT(RND*4)
  38. 390  IF B=G THEN 380
  39. 400  G=B
  40. 410  R=14
  41. 420  READ A$
  42. 430  R=R+1
  43. 440  LOCATE 1,R
  44. 450  IF A$="X" THEN RESTORE:GOTO 370
  45. 460  G=G+1:IF G=4 THEN G=1
  46. 470  DEF SEG:POKE &H4E,G
  47. 480  PRINT A$
  48. 490  GOTO 420
  49. 500  END
  50. 510  CLS:KEY ON:SCREEN 0,0:WIDTH 80
  51. 520  PRINT "                    I hope you enjoyed this presentation!!
  52. 530  PRINT
  53. 540  PRINT "                  THIS HAS BEEN A CATRON SOFTWARE PRODUCTION.
  54. 550  PRINT "                        Copyright (c)October 16th, 1984
  55. 560  PRINT "                              by Bayard L. Catron.
  56. 570  END
  57.